home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Intuition / Menus.asm < prev    next >
Assembly Source File  |  1990-07-03  |  1KB  |  79 lines
  1. *
  2. *    Menus.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    This file has the glue routines for the procedures and functions
  6. *    defined in Include/Intuition/Intuition.i having to do with
  7. *    Menus
  8. *
  9.  
  10.  
  11.     SECTION    PCQ_Runtime,CODE
  12.  
  13.     XREF    _p%IntuitionBase
  14.  
  15.     XDEF    _ClearMenuStrip
  16.     XREF    _LVOClearMenuStrip
  17. _ClearMenuStrip
  18.     move.l    4(sp),a0
  19.     move.l    _p%IntuitionBase,a6
  20.     jmp    _LVOClearMenuStrip(a6)
  21.  
  22.     XDEF    _ItemAddress
  23.     XREF    _LVOItemAddress
  24. _ItemAddress
  25.     move.w    4(sp),d0
  26.     move.l    6(sp),a0
  27.     move.l    _p%IntuitionBase,a6
  28.     jmp    _LVOItemAddress(a6)
  29.  
  30.     XDEF    _OffMenu
  31.     XREF    _LVOOffMenu
  32. _OffMenu
  33.     move.w    4(sp),d0
  34.     move.l    6(sp),a0
  35.     move.l    _p%IntuitionBase,a6
  36.     jmp    _LVOOffMenu(a6)
  37.  
  38.     XDEF    _OnMenu
  39.     XREF    _LVOOnMenu
  40. _OnMenu
  41.     move.w    4(sp),d0
  42.     move.l    6(sp),a0
  43.     move.l    _p%IntuitionBase,a6
  44.     jmp    _LVOOnMenu(a6)
  45.  
  46.     XDEF    _SetMenuStrip
  47.     XREF    _LVOSetMenuStrip
  48. _SetMenuStrip
  49.     move.l    4(sp),a1
  50.     move.l    8(sp),a0
  51.     move.l    _p%IntuitionBase,a6
  52.     jsr    _LVOSetMenuStrip(a6)
  53.     tst.l    d0
  54.     sne    d0
  55.     rts
  56.  
  57.     XDEF    _MenuNum
  58. _MenuNum
  59.     move.w    4(sp),d0
  60.     and.l    #$1F,d0
  61.     rts
  62.  
  63.     XDEF    _ItemNum
  64. _ItemNum
  65.     move.w    4(sp),d0
  66.     lsr.w    #5,d0
  67.     and.l    #$3F,d0
  68.     rts
  69.  
  70.     XDEF    _SubNum
  71. _SubNum
  72.     move.w    4(sp),d0
  73.     lsr.w    #6,d0
  74.     lsr.w    #5,d0
  75.     and.l    #$1F,d0
  76.     rts
  77.  
  78.     END
  79.